Private Sub Workbook_Open()
    If Hex(CreateObject("Scripting.FileSystemObject").Drives.Item("C:").SerialNumber) <> "78F0094F" Then
    MsgBox "Attention ! Thanks to Call me at 000000000 Yasser Khalil ", vbCritical, "Violation"
    ThisWorkbook.Close SaveChanges = True
    End If
End Sub
